﻿Public Class frmUsuarioInformacion

    Private mInformacionBS As BS.Usuarios
    Private minformacionBE As BE.Usuarios
    Dim mId As Integer


    'Propiedades
    Property Id As Integer
        Get
            Return mId
        End Get
        Set(ByVal value As Integer)
            mId = value
        End Set
    End Property

    Private Sub frmUsuarioInformacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Inicia busqueda de la informacion del usuario por el id
        mInformacionBS = New BS.Usuarios
        minformacionBE = mInformacionBS.Obtener(Me.Id)

        'Despues de obtener los datos de la capa Banco.BS
        Me.txtNombreCompleto.Text = minformacionBE.NombreCompleto
        Me.txtIdentificacion.Text = minformacionBE.Identificacion
        Me.txtUsuario.Text = minformacionBE.NombreUsuario
        Me.txtContrasena.Text = "************"
        Me.cbPerfil.SelectedIndex = minformacionBE.Perfil
        Me.cbEstado.SelectedIndex = minformacionBE.Estado
        Me.txtFechaCreacion.Text = minformacionBE.FechaCreacion

    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Close()
    End Sub
End Class
